﻿Public Class VMGrilleCompteIndicateurs
    Inherits VMGrilleCompte

    Protected Overrides Sub InitTitresTableContenu()
        TableContenuTampon = New DataTable
        TableContenuTampon.Columns.Add("ComptesHeaders", GetType(VMValeurCompte))
        TableContenuTampon.Rows.Add({New VMValeurCompte_TitreCompte With {.Valeur = "COMPTE DE TRESORERIE"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre1 With {.Valeur = "Variation des capitaux sociaux dûrs"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre1 With {.Valeur = "Résultat distribué (perte si nég)"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Resultat With {.Valeur = "Flux actionnaire"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_TitreCompte With {.Valeur = "ROE"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre11 With {.Valeur = "Résultat net / Fds Propres Ouv."}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre13 With {.Valeur = "Résultat net / Capitaux Alloués"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_TitreCompte With {.Valeur = "S/P"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre11 With {.Valeur = "DC - (Sinistres réglés / Primes Techniques)"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Titre12 With {.Valeur = "INC/INV - (Sinistres réglés / Primes Techniques)"}})
        TableContenuTampon.Rows.Add({New VMValeurCompte_Resultat With {.Valeur = "TOTAL - (Sinistres réglés / Primes Techniques)"}})
        MAJTableContenu()
    End Sub
    Public Overrides Function ToString() As String
        Return "Indicateurs"
    End Function
    Protected Overrides Sub RefreshLignes(ByVal TValeurs As DataTable, Optional ByVal RaisePropChangedEvent As Boolean = False)
        For i = 0 To Comptes.NombreAnneesProjection - 1
            'Compte de trésorerie
            TValeurs.Rows(1)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.CompteTresorerie.Resultats.VariationCapiSocial(i)}
            TValeurs.Rows(2)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.CompteTresorerie.Resultats.ResultatDistribue(i)}
            TValeurs.Rows(3)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.CompteTresorerie.Resultats.FluxActionnaire(i)}
            'ROE
            TValeurs.Rows(5)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Indicateur.Resultats.ROE_resNetsFdsPropres(i), .StringFormat = "0.00%"}
            TValeurs.Rows(6)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Indicateur.Resultats.ROE_resNetsCapiAlloues(i), .StringFormat = "0.00%"}
            'S/P
            TValeurs.Rows(8)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Indicateur.Resultats.SP_techDC(i), .StringFormat = "0.00%"}
            TValeurs.Rows(9)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Indicateur.Resultats.SP_techINCINV(i), .StringFormat = "0.00%"}
            TValeurs.Rows(10)(CStr(i)) = New VMValeurCompte With {.Valeur = Comptes.Indicateur.Resultats.SP_techTot(i), .StringFormat = "0.00%"}
        Next
    End Sub

End Class
